indiv <- loadRawData(dir=dirALS, indivOrJoint = 'indiv')
joint <- loadRawData(dir=dirALS, indivOrJoint = 'joint')
totals <- loadTotalFiles(dataPath=dataPath)
repeatShowExample <- function(sourceDF) {
x <- pickRandom(sourceDF,n=N)
aggreg_x<-applyAggregMethods(x,totals,idCols=c('source','c1','c2'))
res_x <- computeSurgeIndicators(aggreg_x)
dummy_res<-ddply(res_x, c('c1','c2'), function(s) {
print(paste("************ CASE "))
print(s[1,c('c1','c2')])
print(plotRawByYear(s))
print(plotMAByYear(s))
print(plotTrendByYear(s[s$aggreg.method=='ma',]))
print(plotPVNByYear(s))
print(plotTrendByYear(s[s$aggreg.method=='pvn',]))
data.frame("dummy result")
})
}
KD data
repeatShowExample(joint[joint$source=='KD',])
## [1] "Unique id cols = 116343"
##
|
| | 0%
|
|======= | 10%
|
|============== | 20%
|
|===================== | 30%
|
|============================ | 40%
|
|=================================== | 50%
|
|========================================== | 60%
|
|================================================= | 70%
|
|======================================================== | 80%
|
|=============================================================== | 90%
|
|======================================================================| 100%
## [1] "************ CASE "
## c1 c2
## 1 C0001779 C0025646
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 187 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 175 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 C0005854 C0017626
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 381 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 342 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 C0006826 C0040549
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 242 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 203 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 C0007682 C0333463
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 407 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 370 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 C0011168 C0026649
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 379 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 331 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 C0027882 C0237607
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 487 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 467 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 C0027882 C4505258
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 479 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 476 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 C0086582 C2979880
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 202 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 188 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 C0376353 C1334043
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 410 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 368 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 C1514559 C1696465
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 470 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 443 rows containing missing values (position_stack).
PTC data
repeatShowExample(joint[joint$source=='PTC',])
## [1] "Unique id cols = 1051"
##
|
| | 0%
|
|======= | 10%
|
|============== | 20%
|
|===================== | 30%
|
|============================ | 40%
|
|=================================== | 50%
|
|========================================== | 60%
|
|================================================= | 70%
|
|======================================================== | 80%
|
|=============================================================== | 90%
|
|======================================================================| 100%
## [1] "************ CASE "
## c1 c2
## 1 10090 MESH:D001523
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 137 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 115 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 10116 MESH:D018698
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 172 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 141 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 9606 MESH:D008055
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 90 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 74 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 MESH:D000275 MESH:D000544
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 232 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 214 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 MESH:D001523 MESH:D008055
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 248 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 207 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 MESH:D001927 MESH:D002118
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 257 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 228 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 MESH:D001927 MESH:D020521
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 225 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 221 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 MESH:D003072 MESH:D009133
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 395 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 387 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 MESH:D012559 MESH:D020521
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 367 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 332 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 MESH:D014456 MESH:D017382
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 447 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 405 rows containing missing values (position_stack).
MED data
repeatShowExample(joint[joint$source=='MED',])
## [1] "Unique id cols = 22760"
##
|
| | 0%
|
|======= | 10%
|
|============== | 20%
|
|===================== | 30%
|
|============================ | 40%
|
|=================================== | 50%
|
|========================================== | 60%
|
|================================================= | 70%
|
|======================================================== | 80%
|
|=============================================================== | 90%
|
|======================================================================| 100%
## [1] "************ CASE "
## c1 c2
## 1 MESH:D000072105 MESH:D002478
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 494 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 476 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 MESH:D000368 MESH:D008297
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 94 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 69 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 MESH:D002490 MESH:D051381
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 181 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 152 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 MESH:D004594 MESH:D015870
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 433 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 418 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 MESH:D005787 MESH:D006801
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 132 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 108 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 MESH:D005820 MESH:D010300
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 477 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 463 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 MESH:D006816 MESH:D016923
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 461 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 438 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 MESH:D008297 MESH:D009135
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 171 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 134 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 MESH:D009457 MESH:D010455
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 353 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 308 rows containing missing values (position_stack).
## [1] "************ CASE "
## c1 c2
## 1 MESH:D013577 MESH:D018482
## Warning: Removed 18 rows containing missing values (position_stack).
## Warning: Removed 422 rows containing missing values (position_stack).
## Warning: Removed 30 rows containing missing values (geom_col).
## Warning: Removed 402 rows containing missing values (position_stack).
